Secrets of Stargate/STARGATE.iso/mac/STARGATE (5MB Macintosh)/STARGATE (5MB Macintosh).DXR/00119.ls

Text File | 1994-10-19 | 997 b | 46 lines

on idle
end

on exitFrame
end

on enterFrame
  global gOnPC, gMovieStartMod, gSysVol
  if the pauseState = 0 then
    set the visible of sprite 35 to 1
    set the puppet of sprite 35 to 1
    stopCursor()
    set the volume of sprite 35 to gSysVol
    preRollMov(35)
    set earlyExit to 0
    set cont to 1
    repeat while cont
      set the movieRate of sprite 35 to 1
      updateStage()
      if the movieRate of sprite 35 > 0 then
        exit repeat
      end if
    end repeat
    repeat while the movieRate of sprite 35 > 0
      if the mouseDown = 1 then
        set the movieRate of sprite 35 to 0
        set earlyExit to 1
        exit repeat
      end if
      updateStage()
    end repeat
    set the movieRate of sprite 35 to 0
    set the visible of sprite 35 to 0
    set the puppet of sprite 35 to 0
    if earlyExit then
      spinCursor()
      dissolveEffect()
      go("Intro4")
    else
      spinCursor()
      dissolveEffect()
      go("Intro2")
    end if
  end if
end